package My::Form::Field::Compound;

use strict;
use warnings;

use base qw(Rose::HTML::Form::Field::Compound);

sub html_attr {
    my ( $self, @params ) = @_;
    if ( scalar(@params) > 1 ) {

        # this is an update method - update children as well
        foreach my $field ( $self->fields() ) {
            $field->html_attr(@params);
        }
        $self->SUPER::html_attr(@params);
    } ## end if ( scalar(@params) > 1 )
    else {

        # this is a retrieve method
        $self->SUPER::html_attr(@params);
    }

} ## end sub html_attr

1;
